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mam MM AAAAAAAAAA PP vv VV BB BB NN NNNN 
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MODULE MAPVBN ( 


= - 


LANGUAGE (BLI . 

Pon = ‘V 428898 
= 

BEGIN 


' 
SSOP eReeeRAAAeHeReAAeeAeeeeHeeeAeeeeeeeeeeeeeeeeeeeeeeeeeteeeeteeeeeeeeeeees 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE W THE TERM F SUCH bce AND WITH Me, 3 


Se 


—- 


S5OQ¢ 
2O¢ 


—> tt 8 8 


OWONOVUVE WN" OOONOUE wh 


't TRANSFERRED. 


!@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
Hed se eokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


COCOCOCOOOS 


COoOCCCCCSC 


ITY FOR THE USE OR RELIABILITY OF ITS 


C 
ie OD L 
s S NOT SUPPLIED BY DIGITAL. 


® 
® 
co 
oe 
& 
a 
® 
® 
® 
: OvI I * 
'w OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
® 
® 
* 
ca 
& 
os 
IGITAL ASSUMES NO RESPONSIBI * 
OFTWARE ON EQUIPMENT WHICH I ad 
: * 
' * 
 pacdebeaunsenanbanbooonnedsenndennbennesontatnneeennnnnentienensbeetenssont 
+4 

i] 


FACILITY: FIIACP Structure Level 1 

i ABSTRACT: 

This routine maps the specified virtual blocks to their 
corresponding logical blocks using the supplied window. 
The window is turned if necessary. 


i ENVIRONMENT: 


sessssessosesess 


Seer 


STARLET operating system, including privileged system services 
and internal exec routines. 
| 
| 
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AUTHOR: Andrew C. Goldstein, CREATION DATE: 3-Mar-1977 12:20 
MODIFIED BY: 
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oe SES oe eee bent abuso 
fun 


NOONE WN 0 OONOUEWN "OOONOUEWN “OO OONOu 


1 

i v03-006 cpDS0005 Christian D. Saether 20-Aug-1984 
Modify test for no lock. 

v03-005 CDS0004 Christian D. Saether 14-Aug-1984 


SoS 
So 


Pbiieeiaaats 
NOUR WN OO 


Modify handling of fcb rebuilding. 


if: dep 1984 93:93:93 BTEcduwGeaSten scr tix. sac amapven.e32:1°%° dl 


lB 


; H 1: 

. ' 

3 i Use longword addressing on some routines. 

; 6¢ 1 v03-003 cosoo02 Christian D. Saether 30-Dec-1983 

: o7 ! } Use L_NORM Linkage ond BIND: “COMMON macro. 

i 65 1} vo3-002 ¢pso001 Christian D. Saether —  2-Feb-1983 

3 68 1! Wedd for distributed file system. Don't believe 

; 6 ; Fas FILESIZE anymore, always check the header. 

; “ 1/ v03-001 . 60297 Andrew C. Soldstetn. 55-Aug-1982 18:26 
; a : x maintenance of UCB context in updating cathedral windows 
; es 1! v02-004 acG0229 w C. Goldstein 23-Dec-1981 21:08 
3 7 : } Move updating of MPRSSCL _TURN ted TURN, WINDOW 

: 75 1/ v02-003 LMP0003 L. Mark Pilant, 9-Dec-1981 14:07 
: , : Added support for cathedral windows. 

: 78 1! v02=002 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:25 
so : } : Previous revision history moved to F11A.REV 

; Hi 

: 5s 1 LIBRARY 'SYSSLIBRARY:L g,52": 

; 4 1 REQUIRE ‘SRCS:FCPDEF.B32'; 


v03-004 ¢DS0003 Christian D. Saether 25-Apr-1984 
| 
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GLOBAL ROUTINE MAP_VBN (VBN, WINDOW, BLOCK_COUNT, UNMAPPED_BLOCKS) : L_NORM = 
'e4 


| 
| 
FUNCTIONAL DESCRIPTION: 
| 


window may be turned, header may be read, volume may be switched 


i This routine maps the specified virtual blocks to their 
; corresponding logical blocks using the supplied window. 
the window is turned if necessary. 

i CALLING SEQUENCE: 

} MAP_VBN (ARG1, ARG2, ARG3, ARG4) 

i INPUT PARAMETERS: 

: ARG1: desired VBN 

‘ ARG2: address of window to use 

H ARGS: number of blocks to map 

f not present, 1 

i IMPLICIT INPUTS: 

> CURRENT_VCB: address of VCB in process 

CURRENT_UCB: address of UCB in process 

i QUTPUT PARAMETERS: 

ARGS: if present, addres to store number of unmapped blocks 
i IMPLICIT OUTPUTS: 

} NONE 

i ROUTINE VALUE: 

starting LBN or -1 if no map 

SIDE EFFECTS: 

i 

i 


BEGIN 
MAP 
WINDOW : REF BBLOCK; 
LOCAL 
COUNT ' number of blocks to map 
UNMAPPED, ' address to store unmapped block count 
DUMMY, ' place for above by default 
ucB : REF BBLOCK, ' address of mapping 
FCB : REF BBLOCK, ' address of FCB of file 
HEADER : REF BBLOCK, ' address of file header 
LBN; ! resulting LBN of map 
EXTERNAL 
CLUSGL_CLUB : ADDRESSING_MODE (GENERAL) 
PMS$GL TURN : ADDRESSING-MODE (ABSOLUTES; 
! system count of window turns 
BIND_COMMON; 


ee ee eee eee — 1 


"10 
en 30p= 198s 99:30:88 Dt sxsvmsmasteRccrt 2) 


3 


0-742 Page 
x 1 . 


1X. SRCIMAPVBN.B32; 


43 
Gly ‘ EXTERNAL ROUTINE 
45 4 Reet e Pain FCB : LL_NORM NOVALUE, ! fobyite a primary fcb from header 
$8 5 BUILD EXT FCBS =: LINORM NOVALU 1: bu ld extension fcb chain, 
4 SWITCA_ VOCUME =: L_NORM, ! switch context to specified volume 
rt MAP_WIRDOW : LINORM, ' scan window map 
4 READ_HEADER : LINORM, ' read file header 
0 TURN_ WINDOW : LLNORM ADDRESSING_MODE (GENERAL), ! turn window 
re REMAP _FILE : LUNORM; ! remap the file into segmented windows 
4 
r 2 Check the VBN for legality - i.e., non-zero 
: : 
5 ? FCB = .WINDOWCWCBSL_FCB); 
$ & If .VBN EQL 0 
69 4 
o 2 RETURN <1; 
8 if -VBN GTRU .FCB CFCBSL_FILESIZE) 
BEGIN 
If .FCB CFCBSB_ACCLKMODE) NEQ 0 
: THEN 
BEGIN 
5 IF NOT .FCB CFCBSV_STALEJ 
RETURN -1; 
ELSE 


IF NOT .BBLOCK CCURRENT_UCB CUCBSL_DEVCHAR2), DEVS$V_CLUJ 
OR .CLUSGL_CLUB EQL 


N 
RETURN <1; 
! Either the FCB has been marked stale, or this is a nolock access (which 
!' means the fcb is always suspect because it cannot be marked stale), 
' so rebuild the fcb and extension fcb chain, if there is one. 
HEADER = READ_HEADER (0, .FCB); 
REBLD_PRIM_FCB (.FCB, .HEADER); 


IF HEADER CFH2$W_EX_FIDNUM) NEQ 0 
OR .HEADER CPASSE. EX F IONMXD NEQ 0 


THEN 
BUILD_EXT_FCBS (. HEADER); 
END; 
If an extension was done on tthe by was completely mapped and more 
S 


than one user was accessing it, S necessary to remap t tile to get 
all the blocks correctly mapped. 
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POR GROPP ORO WWII ILI III I A IA I I I nnrnunononononononononononunononunununy 
ecacese ~ 


nN 10 
“000 1enSep-1986 12:90:86 DL SKSVMSMAS TER: 


F_.WINDOWCWCBSV_CATHEDRAL] AND NOT .WINDOWCWCBSV_COMPLETE) 
HEN REMAP_FILE T); 


! Make the filesize test again, in case we did a reconstruction of th 
! chain above. This allows the window to be remapped in that case, i 
necessary. 
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4 -VBN GTRU .FCB CFCBSL_FILESIZE) 
RETURN -1; 


If the file is multi-header, scan the extension FCB's for the one 
containing the desired VBN. The right FCB is identified by noting that 
there are no more, or that the start VBN of the next one is greater than 
the desired VBN. 


St 4 > as 2 pb > 2 4 a 


UNTIL 
CIF .FCBCFCBSL_EXFCB) EQL 0 THEN 1 
ELSE .BBLOCK C.FCBCFCBSL_EXFCBJ, FCBSL_STVBN] GTRU .VBN 


DO FCB = .FCBCFCBSL_EXFCB); 


! If chasing extension FCB's took us to another volume, switch the context to 
that volume. 


| 

: | 

SWITCH VOLUME (.FCBCFCBSW_FID_RVN]); 

Default the optional arguments. 
| 
| 
| 
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COUNT = (IF ACTUALCOUNT GEQ 3 
THEN .BLOCK_COUNT 


UNMAPPED = (IF ACTUALCOUNT GEQ 4 
THEN .UNMAPPED_BLOCKS 
ELSE DUMMY 


WIN —OOBNANE WN $0 OBNO NEW “OC OOVNOUESWNO 


ree 


Attempt to map the transfer with the existing window. If the map fails 
44 completely, turn the window and try once more. When any blocks map, 


' 
i 
return the relevant data. 
DECR I FROM 2 TO 1 DO 
BEGIN 
LBN = Kennet SAL (MAP_WINDOW, .VBN, .WINDOW, .COUNT, .UNMAPPED, UCB); 
IF .LBN NEQ =1 THEN EXTTLOOP; 
PMS$GL_TURN = .PMSSGL_TURN ¢ 1; ' count window turn in PMS data base | 


HEADER™= READ HEADER TO, .FCB); 
KERNEL_CALL (TURN_WINDOW, -WINDOW, .HEADER, .VBN, -FCBCFCBSL_STVBN)); 


ee ee em ee ee a ed ed od od = dd ed dd wd od od dd 
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| 
| 
END; | 


126 

152 

104 IF .UCB NEQ ,CURRENT_UCB 

1250 THEN BUG_CHECK (BADRONWCB, FATAL, ‘Inconsistent RVN in window map pointer’); 

} 1 RETURN .CBN; 

1 ‘ END; ! end of routine MAP_VBN 
| 
| 

-TITLE MAPVBN | 
-IDENT \V04-000\ | 
-EXTRN CLUSGL_CLUB, PMSS$GL_TURN 
-EXTRN REBLD_PRIM FCB, BUICD EXT_FCBS 
-EXTRN SWITCR_VOLOME 
-EXTRN READ HEADER, fURN_QIN 
EXTRN REMAP_FILE, BUGS_BADRVNWCB 
-PSECT $CODES,NOWRT,2 
OOFC 00000 .ENTRY MAP_VBN, Save R2,R3,R4,R5,R6,R7 : rors | 
5E 08 ¢ 9000¢ SUBL2 #8, ~SP : 
50 08 AC 00 0000 MOVL WINDOW, RO > 1146 
52 18 AO DO 00009 MOVL  24(RO), FCB ; 
04 AC b3 99000 TSTL -VBN > 1148) 
60 13 0001 BEQL «6s 46S ; | 
38 2 04 AC 01 0001 CMPL VBN, 56(FCB) : 1152 
3F 1 9901 BLEQU 4$ ; 
0B A2 9 0019 TST 11 (FCB) > 1156 
06 13 OCOIC BEQL ; 
12 23 A2 «2B OO01g BLBS  35(FCB), 2% : 1159 
4E 11 000 BRB : 1161 
50 94 AA DO 00024 18 MOVL  -108(BASE), RO : 1164 
46 3¢ =A ED 00028 BLBC  60(RO), 6$ ; 
000000006 00 D3 00 ¢ TSTL  CLUSGL_CLUB : 1165 
5 13 000 BEQL 6$ 3 
DD 00034 2s PUSHL FCB : 1174 
D4 000 CLRL = (SP) ; 
00006 CF Q FB 00 CALLS 2, READ_HEADER ; 
53 D0 000 MOVL RO, HEADER ; 
6 BB 0004 PUSHR #*M<R2,R3> > 1176 
00006 CF t 4 CALLS #2, REBLD_PRIM_FCB : 
OG A a 4 14 (HEADER ; 1178 
0 4A BNEQ 3 
13 Ad 9 4C TSTB «19 (HEADER) : 1179 | 
1 AF BEQL «= 4$ ; 
3 od 3$ PUSHL HEADER : 1181 | 
00006 cr , CALLS #1, BUILD_EXT_FCBS ; 
08 aC OD 4$ MOVL WINDOW, RO ; 1190 | 
OA A gE £ BBC = #6, 11{RO), 5 ; | 
5 A E0 BBS #5. 11(RO), 5$ ; | 
00006 CF 0 FB CALLS #0, REMAP FILE 1191 
A2 06 AC D 5$ cMPL BN, 6(FCB) > 1198 
04 18 BLEQU 7$ ; 
50 1 cE 07 6$ MNEGL #1, RO : 1200 
4 0007 RET ; | 


if 


; Routine Size: 258 bytes, 


50 oc 
06 AC 2c 
52 
7E 28 
00006 ff 
3 
56 oc 
56 
04 
55 10 
55 
ot) 
04 
7E 04 
00006 f 
FFFFFFFF 8§68F ‘ 
000000006 
00006 gf 
3 
4 
4 
08 
000000006 os 
94 AA 04 


50 


Routine Base: 


ND 
LUDOM 


WP PMO NMNONMVWNWM10 & UNEP ODO FPOPOO FPOGOPMUOrOPr 
WOONONA NF NNO HYVITMPNIM WA AO "UN AO —TIMOMOOnr 


ooooocecoo 
o°og 
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ocOonMOooOo-99O MVOC OU Oo ~ 00-9 | Oo - Oo -"-9 


rn 


COOIT OO Foon —o@wo70c 9c OM O00 "TOO F “WO 


SOOSOSOOSOSSOOOOOOOCSSOOSCOOOOO 
cosssssossssssssssss 

Mm 

> 


-COOOCOCCooooo 
mo 


SCODES + 0000 


I 


f 
: 
094 
38 
9A 
9C 9 
He 
$i 
t 
A 
0 
08 


148: 


-Sep-1 
Sep-1 


7$: 


8$: 


15$: 


be 12:40:86 


MOVL 
BEQL 
CMPL 
BGTRU 
MOVL 
BRB 
MOVZWL 


CALLS 
CMPB 
BLSSU 


VAX-11 Blis 
DISKSVMSMAS 


cree), RO 

44 (RO), VBN 

RO, FCB 

40¢F CB) -(SP) 
Switch. VOLUME 

tab)> 

een: COUNT 

#1, COUNT 

(AB), ry 

UNMAPPED_BLOCKS, UNMAPPED 

DUMMY, UNMAPPED 

me 


perry 
me 


C 


uC 

UNMAPPED 

COUNT 

VBN, =(SP) 

#5, MAP WINDOW 
0; LBN 

LBN, #=1 
@4PMSS$GL_TURN 
hy 


(SP) 
m2, R READ HEADER 
ADER 
ROU CBD 
ven 
HEADER 

WINDOW 
#4, TURN_WINDOW 


1,1 
UCB, -108(BASE) 
15$ 


<BUGS$ _BADRVNWCB ! 4> 
LBN, RO 


32 V4.0-76 
R:CF1IX.SR 
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* (2) 

il 
1210, 
1212 | 
1218. 
1223| 
1224 
1337 
1228 


1387 


1240 


; 1241 


; 1243 
; 1244 


1245 


1237 
1249 


1250 


1835 


bese -1984 5 VAX=-11 Bliss-32 V4.0-7 
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3 PSECT SUMMARY 
; Name Bytes Attributes 
: $CODES 258 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


; esscesse §yEb0(§ occccres Pages Processing 

: File Total Loaded Percent Mapped Time 

; _$255$0UA28:(SYSLIBILIB.L32;1 18619 30 0 1000 00:01.9 

: COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL ,OPTIMJZE)/LIS=LIS$:MAPVBN/OBJ=O0BJ$:MAPVBN MSRC$:MAPVBN/UPDATE=(ENH$:MAPVBN) 


; Size: 258 obri8. 7 + 0 data bytes 


; Lexemes/CPU-Min: 438 H 
3 ry Used: 237 pages 
; Compilation Complete 


DISKSVMSMASTER:CF11X.SRCJMAPVBN.B32; 1 (2) 
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